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FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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**F ILE**1D**FORIOBEG 
FFFFFFFFFF 000000 RRRRRRRR IIIII1 000000 BBBBBBBB EEEEEEEEEE GGGGGGGG ° 
FFFFFFFFFF 000000 RRRRRRRR IHII11 000000 BBBBBBBB EEEEEEEEEE GGGGGGGG ° 
FF 00 00 RR RR II 00 BB BB EE GG e 
FF 00 00 RR RR II 00 00 6B BB EE GG ° 
FF 00 00 RR RR I] 00 0O BB BB EE GG ° 
FF 00 00 RR R I] 00 0O BB BB EE GG ° 
FFFFFFFF 00 00 RRRRRRRR I] 00 00 BB8BBBBBB EEEEEEEE GG | ° 
FFFFFFFF 00 00 RRRRRRRR I] 00 00 BB88BBBBB EEEEEEEE GG ° 
FF 00 00 RR RR I] 00 0O BB BB CEE GG 6GGGGGG ‘ 
FF 00 00 RR RR I] 00 0O BB BB EE GG GGGGGG ‘ 
FF 00 00 RR RR 1] 00 0O BB BB EE G GG ower ‘ 
FF 00 00 RR RR I] 00 00 BB BB EE GG GG enen ‘ 
FF 000000 RR RR IIIII 000000 BBBBBBBB EEEEEEEEEE GGGGGG wins ‘ 
FF 000000 RR RR IIIIII 000000 BBBBBBBB EEEEEEEEEE GGGGGG nen ‘ 
LL IIIII1 SSSSSSSS ‘ 
aa III] SSSSSSSS . 
LL I] SS : 
LL Il SS ‘ 
LL I] SS | ‘ 
LL II SS ‘ 
LL Il SSSSSS : 
LL I] SSSSSS . 
LL i ss : 
LL I 3$ ‘ 
LL II SS . 
LL II SS ; 
LLLLLLLLLL III] SSSSSSSS 3 
LLLLLLLLLL III] SSSSSSSS : 
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READ/WRITE statement initialization 16. $ep-1984 00:29:21 AX-11 Bliss-32 V4.0-7 P 1 
12-808- 1382 09: $355 FORRTL.SRCJFORIOBEG. B35, 71 — (1) 
MODULE FORSETS_STS (ZTITL ‘5. FORTRAN READ/WRITE statement tnd top igetts tion 
ID EN NT = *2=006' ! File: FORIOBEG.B32 Edit: 21.2006 


) 
BEGIN 


SRE AREA AEE ERE AREER ARETE EERE EERE TATA AAATKERTREH ee eee 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


® 
® 
* 
: ® 
'® ale SOFTWARE IS Cr anee UNDER A LICENSE AND MAY BE USED AND sor 38 * 
Hd Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* IN NCLUSION OF a B ABOVE gph NOTICE, THIS SOFTWARE OR ANY OTHER’ * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. ® 
8 ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 

® 

® 

® 

* 

® 

* 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR i eeeeere OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


Lee REAR R EAA EAA 


'+¢ 
FACILITY: FORTRAN Support Library - Not user callable 
| ABSTRACT: 


This module contains the common initialization code for 
all FORTRAN multi-call I1/0 statements (READ, WRITE, 
ENCODE, DECODE, REWRITE, PRINT, TYPE and ACCEPT). 


i ENVIRONMENT: User access mode; mixture of AST Level or not. 


t AUTHOR: Thomas N. Hastings, CREATION DATE: 08-Mar-77: Version 01 
Steven B. Lionel, 4-Dec-1979: Version 2 


i 2-001 = ALL new Lo ic, apt iatzed f for high s qed. Steve Lionel 
with many helpful suggestions from Grove. 4-Dec-1979 
i 2-002 - Fixed bug in run-time formatting. SBL Tepes 1979 
eeeee = VMS v2. 0 
i 2-003 = Add s support for NAMELIST. Also move BUILTIN foc loretign of 
UNT oe nes tee the routine which uses it. | 31-Auguat- 1980 
i 2-004 = Declare ARGS t bytes since ghe second byte = looked at. 
BLISS v2.0 didn’ ¥ AX. it, but V ¥$:} did. SBL 14-Oct-1980 
i 2-005 - = pees e MIXFILACC message. JAW 22-Aug-1981 


geene 


| 2-006 - Add List-directed internal files. Use prologue file. SBL 21-Apr-1983 
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FORS$10_BEG FORTRAN READ/WRITE statement initialization 16-Sep-1984 00:29:21 AX-11 Bliss-32 V4.0-74 Page 2 
2-006 1or8ob- 1384 93:93:63 EPOaRTL SRE sronioneS 04551 9 025 
; 8 0057 1! 
; 9 058 1 ! PROLOGUE FILE: 
; & 059 1! 
s $1 060 1 
; 6 0061 1 REQUIRE «TLIN:FORPROLOG'; | FORTRAN definitions 
; 6 0127 1 SWITCHES ZIP; ! Optimize for speed 
>; 664 0128 1 
; 0129 1! 
; 66 3 0 1 ! TABLE OF CONTENTS: 
; «67 ‘oy 6S 
; 68 Oi 3g 1 
3 9 4 1 FORWARD ROUTINE 
3 4 + : : FORS$IO_BEG : CALL_FIOBEG NOVALUE; ! Common routine for all 
3; fe 0136 1! 
; 73 0137 1 ! MACROS: 
: «674 0138 1! 
3; £9 0139 1 
: 76 0140 1 MACRO 
; Ag 318) : POS (A) = ZFIELDEXPAND(A,1) %, ! Gets bit position from LUBS$V symbol 
; 79 $128 1 MASK (A) = 1*POS(A) 2%; ! Mask for LUBSV symbol 
; 80 0144 (1 
,; 8 0145 1! 
H 82 0146 1 ! EQUATED SYMBOLS: 
; 0147 1! 
; 0148 1 LITERAL 
3; @ 0149 1 
5; 0150 1 '+ 
s 87 0151 1 ! Masks for Sonat ing which arguments are present for each statement 
; we BI 3g 1 ! type. The two M_TST_ masks are used for testing combined attributes 
; 0153 1 ! of a statement type. 
3; 0154 1 Hos 
ae 0155 1 M_ARG_FMT = 1°0, ! 1 if format is present 
; 92 0156 1 M_ARG_REC = 1°1, ' 1 if record number is present 
oe 0157 1 M_ARG_USR = \"¢° ' 1 if user buffer is present 
3 94 0158 1 M_ARG_KEY = 1°3, ' 1 if hey fields are present 
; 0159 1 M_TST_INT = 1%4, ! 1 if internal file or ENCODE/DECODE 
; > 0160 1 M_TST_FMT = 1°5, ! 1 if formatted or List-directed 
= a 0161 1 
; 6196 1 + ; . 
; WW 0163 1 ' Masks which select which unit attributes are NOT allowed for 
; 130 pice ! } a statement type. 
3 Vee b1e8 1 M_ATR_RON = MASK (LUBSV_READ_ONLY), ! 1 if READ_ONLY prohibited 
: 103 0167 1 M_ATR_DIR = MASK (LUBS$V_DIRECT) ! 1 if DIRECT prohibited 
3 104 0168 1 M-ATR-FMT = MASK (LUBSV~FORMATTED), i 1 if FORMATTED prohibited 
s 105 0169 1 M_ATR_UNF = MASK (LUBSV_UNFORMAT) ! 1 if UNFORMATTED prohibited 
: 106 0170 1 MTATR7SEQ = MASK (LUBSV~SEQUENTIAS, i 1 if SEQUENTIAL prohibited 
: 107 0171 1 M_ATR_KEY = MASK (LUBSV_KEYED); ! 1 if KEYED prohibited 
: 108 HEE os 
; 109 0173 1: 
3; 110 174 1 ! FIELD DECLARATIONS: 
3 (117 tem &. 
; by 178 1 FIELD 
, TF 17 1 
3 («114 0178 1 DUMMY_FIELDS = 


FORTRAN READ/WRITE statement initialization 18-Sep-1984 00:93:61 AX-11 Oi ieee ae V4.0-74 
14-Sep-1984 12:52: FORRTL.SRCJFORIOBEG.B32;1 
3 115 179 «1 + 
; 18 180 1 ' The purgose of this fieldset is only to define the field 
3 i : 1 } } FOR_V_OBJ_FMT so that it can be used for TST_OBJ below. 
; 319 1 : 1 SET 
; 120 184 1 FOR_V_OBJ_FMT = CFORSV_OBJ_FMT) 
; 1 19 : TES, 
: g Bt $ 1 ARG_FIELDS = 
; 4 188 1 1+ ‘ 
; 5 B18% } See definition of M_ARG_x and M_TST_x Literals above. 
3 5 $194 1 SET 
: 128 019¢ 1 ARG_FMT = 0.0.1.03, 
3 9 0193 1 ARG_REC = (0,1,1, }: 
: 130 0194 1 ARG-USR = 0.41.0 : 
; 1 0195 1 ARG_KEY = (0,3,1,0], 
; 32 0196 1 TST-INT = 0.4,1,03, 
; 13 0197 1 TST“FMT = [0.5.1.0 
3 $e aire : 131.084 = (0.P0s (FOR_V_OBJ_FMT),1,0] ! 1 if run-time format 
3 1 Bg0s 1 
; 137 0201 1 ATR_FIELDS = 
s 133 bc0e 1 + 
5; i 0205 1 ! See definition of M_ATR_x Literals above. 
; 40 0204 1 Hoes 
3 (141 0205 1 
; 4@ 0206 1 ATR_RON = [O,POS (LUB$V_READ_ONLY),1,0], 
: 14 0207 1 ATR-DIR = CO.POS (LUBSV~DIRECT),1,0), 
> 144 0208 1 ATR-FMT = CO,POS (LUBSV-FORMATTEDS ,1,0), 
> 145 0209 1 ATR-UNF = [O,POS (LUBSV-UNFORMAT),1,0] 
> 146 9210 1 ATR~SEQ = [O.POS (LUBSV~SEQUENTIAS,1,01, 
> 147 0211 1 ATR-KEY = CO;POS (LUBSV“KEYED),1,04 
; 148 Oste 1 ES; 
: 149 021 1 
3 350 0214 1 
: 51 0215 1! 
; 26 0216 1 ! OWN STORAGE: 
s; 13 0217 1! 
3 6154 0218 1 
: 155 0219 1 BIND 
; 156 0220 1 ERR_ADR_IDX = ! For each statement type, gives 
s Vor 0221 1 ! the argument list index for the 
; 158 bee¢ 1 ! ERR= parameter. Numbering starts 
; 159 0 1 { at 1. 
; 60 0224 1 UPLIT BYTE (¢ 
; 61 8S$2 1 
3 6¢ 226 (1 0. ' unused 
: 16 0227 1 ‘ ' WRITE sequential formatted 
3 «(164 0228 1 3, ' READ sequential formatted 
: 6165 3594 1 $° ' WRITE sequential unformatted 
; 166 8S 0 1 > ' READ sequential unformatted 
; 167 0231 1 4, ! WRITE direct formatted 
; 168 ¢ 1 4, ' READ direct formatted 
: 169 1 : ! WRITE direct unformatted 
; 170 4 1 : ! READ direct unformatted 
3: 171 2 2. ' WRITE sequential List-directed 
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FORSS10_BEG FORTRAN READ/WRITE statement initialization 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 
2-006 1o-g00-1 382 09:93:63 YPORRTL SRE FORIOBEG.B32;1 
$ 2, ' READ poquent tet List-directed 
4, ' ENCODE formatted 
8 4, ! DECODE formatted 
9 ' REWRITE formatted 
6, ' READ keyed formatted 
° ! REWRITE unformatted 
4 ' READ keyed unformatted 
° ! WRITE internal formatted 
° ' READ internal formatt 
‘ ! WRITE sequential NAMELIST 
Se ' READ sequential NAMELIST 
$° ! WRITE internal List-directed 
! READ internal List-directed 


) : VECTOR CISBSK_FORSTTYHI+1, BYTE], 
STMT_ARG = ' A table indexed by statement type 
! that has a bit set in the appropriate 
! position if an argument is defined 
! for that statement. Other bits 
! are used for combined tests. 
' See above for Literal definitions. 
UPLIT BYTE ¢ 
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STMT_ATR = 


' A table of statement 

' attributes indexed by 

! statement type. If a . 

' bit is set, the corresponding 


0, ! unused 
M_ARG_FMT+M_TST_FMT, ! WRITE sequential formatted 
M_ARG_FMT+M_TST_FMT, ! READ sequential formatted 
0, ! WRITE sequential unformatted 
0, ! READ sequential unformatted 
M_ARG_FMT+M_ARG_REC+M_TST_FMT, ! WRITE direct formatted 
M_ARG_FMT+M_ARG_REC+M_TST_FMT, ! READ direct formatted 
M_ARG_REC, ! WRITE direct unformatted 
M_ARG_REC, ! READ direct unformatted 
M_TST_FMT, ! WRITE sequential List-directed 
06 7 M_TST_FMT, ! READ sequential List-directed 
07 7 M_ARG_FMT+M_ARG_USR+M_TST_INT+M FMT, ! ENCODE formatte 
08 7 M_ARG_FMT+M_ARG_USR*M_TST_INT+M FMT, ' DECODE formatted 
09 7 M_ARG_FMT+M_TST_FMT, ! REWRITE formatted 
0 7 M_ARG_FMT+M_ARG_KEY*+M_TST_FMT, ! READ keyed formatted 
1 7 0, ! REWRITE unformatted 
2 7 M_ARG_KEY, ! READ keyed unformatted 
3 7 M_ARG_FMT+M_TST_INT#M_TST_FMT, ! WRITE internal formatted 
& 7 M_ARG_FMT+M_TST_INT+M_TST_FMT, ! READ internal formatted 
5 7 M_ARG_FMT+M_TST_FMT, ! WRITE sequential NAMELIST 
6 8 M_ARG_FMT+M_TST_FMT, ' READ sequential NAMELIST 
7 8 M_TST_LINT+M_TST_FMT, ! WRITE internal List-directed 
4 : M_TST_INT+M_TST_FMT ! READ internal List-directed 
; ) : VECTOR CISBSK_FORSTTYHI+1,BYTE), 
¢ 8 
8 
4 8 
5 8 
6 9 
7 9 
8 9 


: attribute is NOT permitted 
! to be defined for the unit. 
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2-006 12-8 08- 1 3be 90:93:65 FORRTL.SRCJFORIOBEG.B32;1 . (2) 
§ g 93° «1 ‘A is ANDe 
: 5% 0 9% 1 i ith Loesae Gh TAT. 
3 1 95 (1 ' the result” i-oetes 
: $38 0599 | there is a disallowed 
: 234 0298 1 UPLIT WORD ( ; 
3 5 8 99 1 
3 6 00 1 0, ! unused 
. oon RAE-AMGRAE- DUPONT HEAT secon it foratese 
3 » ! sequential formatte 
mY CARO ECATEBUE ON ATR HEU seneelat' sanecsetes 
3 ! n 
4 st 0 8 1 M~ATR_ RON+M “ATR_ easn, ate “REYOM. ATR_UNF, ' WRITE E direct Ternettes . 
; og 0306 1 M-ATR_SEQ+M_ATR_KEY*+M_ATR_U ' READ direct formatted 
: st 0307 1 M_ATR “RON+M “ATR_ “SEQ+M_ ATR. “KEYSM. ATR_FMT, ' WRITE direct unformatted 
3 246 0308 1 M-ATR_SEQ+M_ATR_KEY+M_ATR_FMT, ' READ direct unformatted 
; 245 0309 1 M~ATR_RON¢+M_ATR_DIR*+M_ATR_ “KEYSM. ATR_UNF, ! WRITE sequential List-directed 
: seo 0310 1 M~ATR_DIR+M_ATR_KEY+M_ATR_UNF, ! READ sequential List-directed 
: ote S312 4 6° i DECODE. formatted 
; 249 $31 1 M"ATR_RON+M_ATR_DIR+M_ATR_UNF, i REWRITE formatted 
; 250 0314 1 M~ATR_DIR+M_ATR_SEQ+M_A RUNF , ! READ keyed formatted 
3 eo} 0315 1 M_ATR_RON+M_ATR_DIR+M_ATR_FMT, ' REWRITE unformatted 
; $26 0316 1 M~ATR_DIR+M_ATR_SEQ+M_ATR_FMT, ! READ keyed unformatted | 
Bo BY : BUS ciaecah gecettt® 
: 255 0319 1 M_ATR_RON+M_ATR_DIR+M_ATR_UNF, i WRITE Sequential NAMELIST 
; 256 0320 1 M~ATR_DIR+M_ATR_UNF , ! READ sequential NAMELIST 
; 257 0321 1 0, ! WRITE internal List-directed 
; $26 $358 ' 0 ! READ internal List-directed 
: 260 0324 1 ) : VECTOR CISBSK_FORSTTYHI+1, WORD]; 
: 261 0325 1 
3 $o6 0326 1! 
; 0327 1! 
3 2646 0328 1 ! EXTERNAL REFERENCES: 
: 265 tT 1! 
: 266 0330 1! 
s 267 0331 1 
: 268 O88 1 EXTERNAL ROUTINE 
$ $90 Oeez : FORSS$CB_PUSH : JSB_CB_PUSH NOVALUE, oreete wag §) phony 5: if needed, for this unit and 
5 ' push down system 
3 14 StH ; FORSSFMT_COMPIL : WEAK, ornes compiler’ = returns adr 
3 ' of compiled form 
5 sre 0337 1 FORSSERR_ENDHND, ' error Seaatiten ta handler for ERR= and END= 
: 276 0338 1 FORSSSIGNAL_STO : NOVALUE, ' Convert FORTRAN err# 
3 $2 0339 #1 ' to VAX error # and SIGNAL_STOP. 
: 4 370 : FORSSOPEN_DEFLT : CALL_CCB NOVALUE; ! Perform default OPEN 
; 278 0349 1 EXTERNAL i ; 
: +44 Otte ' FORSSAA_ UDF _PRO : VECTOR, UDF level initialization dispatch 
° 2 ° adie 
: $B b8te ' FOR$$10_IN_PROG; ! 1/0 in progress handler 
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2-006 1328ee= 1 3ke 19:93:85 FORRTL. ReSFORIOBEG.039;1 . (3). 
oe GLOBAL ROUTINE FORSSIO_BEG (FLAGS_ARG, UNIT) : CALL_FIOBEG NOVALUE = 
YY FUNCTIONAL DESCRIPTION: 
a3 0 Common 1/0 statement initialization: 
90 1. Determine if ERR= and/or END= optional parameters 
91 are present or not. 
35 ¢: Setup an error nandler. y F 
9 + Setup a LUB/ISB/RAB control block for this logical unit ‘ 
94 if not setup already. ° 
95 4. Check for incorrect mixing of 1/0 statements. | . 
96 5. If unit not already OPEN, OPEN it. ‘ 
44 6. Store away passed parameters. | : 
9 FORMAL PARAMETERS: | ; 

} . 


IIA 
oo 
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FLAGS_ARG.rl.v = This contains the statement syee number is 
bits 0:7. If bit FORSV_OBJ_FMT (8) is s 
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4 
4 
035 
035 
5 
5 
6 
036 
838 
36 
036 
036 et, 
30 036 then this is a run-time (hiStorically ‘‘object-time'') 
04 036 formatted statement and requires the format 
05 036 compiler to be defined (via a strong .EXTERN 
306 036 somewhere else). 
$05 bee This parameter is passed in RO. : 
09 037 UNIT - The first of the arguments pointed to by the 
310 037 AP. This is the unit number passed by value : 
11 037 except for the following statements: 
\¢ 037 ENCODE ,DECODE - byte count ; 
i bee Internal file = address of user | : 
315 037 Remaining arguments are selected based on the : 
317 Ber ARG_TYPES vector of bits. : 
18 $38 IMPLICIT INPUTS: : 
336 038 LUBSV_SEQUENTIA This unit has been specified for 
21 038 sequential access by a previous OPEN. 
$§ 038 LUBSV_DIRECT This unit has been specified for 
2 038 direct access by a previous OPEN 
24 038 or DEFINE FILE. 
25 038 LUBSV_KEYED This unit has been specified for 
26 038 keyed access by a previous OPEN. 
sf $33 LUBS$V_FORMATTED This unit has been specified for 
8 39 formatted 1/0 by a previous OPEN 
$3 039. or default OPEN. 
0 039 LUBS$V_UNF ORMAT This unit has been specified for 
31 039 unformatted 1/0 by a previous 
3 039 PEN, DEFINE FILE, or default OPEN. 
3 039 LUB$V_READ_ONLY This unit has been specified for 
34 039 perteratn READs only by the current 
33 839 PEN or CALL FDBSET. 
3 
3 0 
3 0 
4 0 
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3 LUB$V_OPENED This unit has been opened by a previous 
7 40 OPEN, or default OPEN (for READ/WRITE 
; rt OR ENDFILE). 
0 40 IMPLICIT OUTPUTS: 
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:; 341 4046 1! 
3 i} 405 1! LUBSL_LOG_RECNO Current ot hg | (or spanned) 
; 34 4, $ 1! record number for sequential access 
3; 344 4 1! files (needed for BACKSPACE of spanned 
; 345 rt 1! records). Current FORTRAN direct 
: re 409 1! ccess files 1 = first record. 
; 34 “i9 1! never stored. 
; 348 411 1! ISBSA_ERR_EQUAL Adr. of jump to if error occurs 
; 349 tig 1! (ERR= supplied) or 
; 350 415 1! ISBS$A_END_EQUAL Adr. to jump to if end of file 
; 351 414 1! ccurs (END= supplied) or 0. 
3 25 415 1! ISBSB_ERR_NO . Last continuable error during statement 
3; 3 ois 1! ISBSA_FMT_BEG If object-time format, Adr. of first 
: 354 417 1! char in resultant format array. 
. is 418 1! RABSB_KRF set to keyie if present and not -1 
: 5356 419 1! RABSV_KGE set if match present and is 1 
: wor 0420 1! RABSV_KGT set if match present and is 2 
; 358 0421 1! RABSL_KBF set to the key address 
3 2B 3 § : RAB$B_KSZ set to to key size or zero if not string 
3 os be ¢ ! ROUTINE VALUE: 
nn es 
; o2 be : : SIDE EFFECTS: 
3 365 0430 1! Allocates a LUB/ISB/RAB block if necessary. 
; 368 0431 1! Initiates activity on an ISB. 
; 44 bees 1 Opens a unit if necessary. 
; a bc34 1 i notes: 
3 38 0435 1! In the Run-Time Library, FORS$$I0_BEG is never actually called. 
se, 0436 1! Each statement type has its own entry point which places the 
; 374 0437 1! correct type number in RO and then branches to the FORS$10_BEG+2. 
3 S79 0438 1! These separate entry points also make the required external 
3; 376 0439 1! references to the UDF and REC level routines and the format 
3 srr 0440 1! compiler if necessary. 
a Boa Bh 
Rey em 
: 56 0445 GLOBAL REGISTER 
3 o7 bie? CCB = K_CCB_REG : REF $FORSCCB_DECL; 
; 385 448 BUILTIN : 
i; 386 0449 ACTUALCOUNT, ! The number of arguments we were called with 
3; 387 450 FP, ' Our frame pointer 
3 4 oe) AP; ! Reference to the ‘'caller’’ argument List 
: 90 e388 LOCAL ' The first 4 locals are used by error-processing routines: 
; 391 454 L_UNWIND ACTION : VOLATILE, ! Unwind action code (FORSK_UNWIND{POP or NOP} 
; 3 455 “ERR_ADR : VOLATILE, ! User-program supplied ERR= address (0 if none) 
; 39 rt -END_ADR : VOLATILE : peeragrosr oe sup Lied END= address (0 if none) 
3 394 45 L-UNWIND_DEPTH : VOLATILE, : ! No. of additional frames to unwind if error 
3 «65395 #28 : produced at compiled time or object time 
: 38 45 STMT_TYPE, ! Statement type number 
; 39 460 ERR_POS : REF VECTOR [,LONG], ! Address of err_adr parameter 
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-Sep-1 FORRTL.SRCJFORIOBEG.B832;1 
ARGS : BLOCK (4 adi? FIELD (ARG_FIELDS), : Arqament flags 
PTR : REF VECTOR ,LONG); ! Argument List pointer 
STACKLOCAL 
ARG_LIST_END; ! Address of last actual argument 


be 
FLAGS_ARG : BLOCK (4,BYTE), ' Passed in RO 
AP : REF VECTOR C,LONGJ, ! Pointer to argument List 
FP : REF BLOCK C,BYTE); 


ENABLE ! Establish error handler and provide arguments: 


'" UNWIND action code, depth to unwind (0) 
; ERR= and END= addresses from caller 
FORSSERR_ENDHND (L_UNWIND_ACTION, A_ERR_ADR, A_END_ADR, L_UNWIND_DEPTH); 


¢ 
} Copy fiags argument passed by ‘'caller’’ in RO 


+ 
! Set STMT_TYPE to FORTRAN statement type. Set up ARGS with bit 
:_for run-time formatting. 


STMT_TYPE = .FLAGS_ARG CFORSB_STMT_TYPE]; 
FLAGS_ARG CFORse_5TAt TYPE] ="0; 
ARGS = .STMT_ARG CL.STAT_TYPE] OR .FLAGS_ARG; 


+ 

! Set Fesonug action on UNWIND to no-operation (since 

' LUB/ISB/RAB not pushed down yet). 

! Also set L_UNWIND_DEPTH to additional no. of stack frames between 
! establisher and user program to be unwound in order to 

get back to user program. 


L_LUNWIND_ACTION = FORSK_UNWINDNOP; 


'¢ 
' Setup LOCAL A_ERR_ADR and A_END_ADR to pass to error handler 
in case of a SIGNAL. 


ARG_LIST_END = AP cae Tums COMT ()]; ! Get address of last entry 
ERR~POS = AP [.ERR_ADR_IDX C.STMT_TYPEI) 
TF gARG_LIST_END GEQA ERR_POS [0] 


Le] 


BEGIN 
IF .ARG_LIST_END GTRA ERR_POS (0) 
THEN 


A_END_ADR = .ERR_POS (1); 
AAERRTADR™= .ERR_POS (0); 


Page 


FC 
Ta 


i 


; Statement. 
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; =006 12r8e71982 99:93:83 HaSaRT OsheS E38 bee 45.1 9° «35 | 

455 1 Call FORSSCB ahyse to initiate 1/0 on this unit. If this is 

4 1 i waprne) File 1/0 or ENCO DE/D ECODE, then use a special 

4 ! logical unit moabars 

$28 25 ie | 

re 2 5 If NOT .ARGS CTST_INT] ! Not internal file type 

46 3 5 ev ser ORSSCB_PUSH (,UNIT, LUBSK_DLUN_MIN) 

tee 2 5 FORSSCB_PUSH (LUBSK_LUN_ENCD, LUBSK_LUN_ENCD); 

798 5 5 LLUNWIND_ACTION = FORSK_UNWINDPOP; 

tee 2 : + 

469 3 : i Store away ERR= and END= address for duration of 1/0 

4 


i If we “fe here, then we know there is an invalid combination. 
t appropriate error message depending on which bit 

! on. 

i! 

Pilg 
* ATTR : BLOCK C1,WORD] FIELD (ATR_FIELDS); 


The following assignment is done in two statements to prevent 
' BLISS from making a common subexpression with the above test. 


ATIR = .STMT_ATR C.STMT_TYPE); 
ATTR = .ATTR™AND .CCB tcupsu “GNIT_ATTRI; 
IF gATIR CATR_SEQ) 


BEGIN ! Can't be ACCESS="SEQUENTIAL' 


500 


De Se Se Se Se Se Be Be Se Se Se Be Ga Se Se Se Be Se Fe Se Se Se Se Be Be Se Se Se Fe Se Se Ge Ge Se Se Ge Se Se Se Se Ge Se Fe Se Se Se Oe Se Se Se Se Se Oe Se ee Se ee. 
a 
co 
Ww 


4 0 ' 
471 05 ! Store 1/0 statement type code for 
47 0535 ! future dispatching to other levels of abstraction during 
47 bee9 ! this 1/0 statemen 
474 05 i Clear Last continuable error byte in ISB. 
475 0538 l- 
476 0539 
477 0540 CCB CISBSA_ERR_EQUAL] = .A_ERR_ADR; 
478 bee4 CCB CISBSA_END ~EQUALJ = .A_END_ADR; 
479 2¢§ CCB CISB$B_ERR-NOJ) = 0; 
480 054 CCB CISBSB-STTA_TYPE] = .STMT_TYPE; 
481 0544 
482 0545 + 
0546 ! Check for the following error | 
484 0547 ! OPEN or DEFINE FILE Feauired. for keyed or direct access 
485 0548 { mixed file access modes 
486 0549 ! write to READONLY file 
487 0550 ! This is done by AND ing the word in the LUB that has unit attribute 
488 0551 ! bits with the appropriate mask in STMT_ATR. If any bit is still on, 
489 3236 !' then at least one invalid meet saneton as detected. The bits are 
490 055 ! then analyzed to determine which error was found. 
491 0554 !~ 
492 0555 
493 0556 IF (.STMT_ATR C.STMT_TYPE] AND .CCE CLUBSW_UNIT_ATTR]) NEQ 0 
494 0557 THEN 
495 0558 BEGIN 
496 0559 ! 
0560 
826 
56 
056 
056 
056 
B20 
56 
Bee 
56 
057 
be) 
087 
057 
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FR 


RSSSIGNAL_STO (FORSK_OPEDEFREQ); 
TURN; 

D: 

TR CATR_RONJ 

GIN ! Can't be READONLY 
ht SA tae (FORSK_WRIREAF I 


LD); 


i If it isn't either of the above, then it must be mixed access 
! modes or formatting types. Signal MIXFILACC as the primary 
! message, with explana ory speines message. Note that direct 


COC OS OO COCO CDOD OO INI 


SODWNAO ME WN (OC OONOUE WIN OVOONOuM 


pofolelelolelelelelelelelolololo) 


WR" O ODONOAUESWN—"OODONOUS wr 


IWIWIWWAROPOPOPOPONOPUNPUN 2 oe 


! or keyed 1/0 to a sequential unit has already been rejected 
: } above with OPEDEFREQ. 
8 4 FORSSSIGNAL_STO (FORSK_MIXFILACC, 
3 4 Choose the appropriate secondary message. 
059 IF eATTR CATR_UNF] THEN FORS_FMTIO_UNF 
059 ELSE IF .ATTR CATR_FMT] THEN FORS_UNFIO_FMT 
34 059 ELSE IF .ATTR CATR_KEY] THEN FORS$_DIRIO_KEY 
35 059 ELSE IF .ATTR CATR_DIR] THEN 
059 IF .ARGS CARG_REY] ! Check statement type 
060 THEN FORS_KEYIO_DIR 
Bens ELSE FORS_SEQIO_DIR 
060 3 
0604 RETURN; 
0605 END; 
0606 
0607 '+ 
0608 : We now start picking up arguments from the argument List. PTR 
ee ' will be the pointer to the current place in the argument List. 


pogend tne on bits set in ARGS, arguments will be taken and 
les 


PTR = AP (2); ! Start with second argument 


'¢ 
Get record number if present 


advanced. 


IF_.ARGS CARG_REC) 
THEN 


Seas Soo ab nie oe eee 


DNOAWE WN OOONOAUE WN OOBNOMUE WN OO@s 


BEGIN 
IF .PTR CO) EQL O OR 
wae CLUBSL_REC_MAX] NEQ 0 AND (.PTR CO] GTRU .CCB CLUBSL_REC_MAX])) 


'¢ 


i The record number was zero or was greater than the 
! maximum for this file. 


BEGIN 
FORS$SIGNAL_STO (FORSK_RECNUMOUT) ; 
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: 
: 
: 
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14-Sep-1984 FORRTL.SR OBEG.B32;1 


RETURN; 
ND; 
sce FYUésL_LOG_RECNOD = RLONG_A (PTR); ! Pick up logical record number 


4 

' If this is a run-time (object-time) format, 

! compile format and store address and length in ISB. 

! Otherwise store the address of the pre-compiled format into the ISB. 
! Note: a NAMELIST description block is passed as if were a compiled 
format, so it is stored here. 


if -ARGS CARG_FMT) 
IF NOT .ARGS CTST_OBJJ 
CCB CISBSA_FMT_BEG] = RLONG_A (PTR) 
FORSSFMT_COMPIL (RLONG_A (PTR), CCB CISBSW_FMT_LENJ, CCB CISBSA_FMT_BEG)); 
+ 
If the unit is open, check to see if it was opened by ENDFILE. 
If it was, complete the attribute specifications based on the 
statement type. 


If the unit is not open, open it using default attributes based 
on the statement type. 


IF .CCB CLUBSV_OPENEDJ ! Unit opened 
THEN 
BEGIN 
es CLUBSV_ENDF ILOPN] ! Opened by ENDFILE 


BEGIN 
CCB CLUBSV_ENDFILOPN] = 0; ! Turn off bit 
IF _.ARGS CTST_FMTJ ! Formatted or List-directed 


HEN 
“ CLUBSV_FORMATTED] = 1 


BEGIN 
CCB CLUBSV_UNFORMAT) = 1; 


cB LUBSV~SEGMENTED) = 1; ' Has to be sequential 
END; : 
END 
ELSE IF NOT .ARGS CTST_INT) 
BEGIN ! Not internal file or ENCODE/DECODE 
L_UNWIND_ACTION = FORSK_UNWINDRET; 
FORSSOPER_DEFLT ( 
ACCESS = "SEQUENTIAL" or "DIRECT 
F .ARGS CARG_REC) THEN OPENSK_ACC_DIR ELSE OPENSK_ACC_SEQ), 
' TYPE ‘OLD’ or ‘NEW' 


—_— 
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; 6 $ 689 (IF .STMT TYPE THEN OPENSK TYP NEW ELSE OPENSK_TYP_OLD), 
3 ? 8 peas FORM = FORMATTED’ or ‘UNFORMATTED 
; 629 069¢ (1F_.ARGS CTST_FMT] THEN OPENSK_FOR_FOR ELSE OPENSK_FOR_UNF)); 
; 630 69 L_UNWIND_ACTION = FORSR_UNWINDPOP; 
: 631 694 Q 
3; 6 ¢ 0695 ELSE 
; 6 0696 BEGIN 
; 654 069: '¢ 
; 635 0698 ! ENCODE/DECODE or internal file 
; 636 0699 !- 
; O37 8700 CCB CLUBSV_FORMATTED] = 1; 
; 638 8503 CCB CISBSV_DE_ENCODE) = 1; 
; “y 0708 ul NOT .ARGS CARG_USR] ! Not ENCODE/DECODE? 
; 64 0705 CCB CLUBSA_BUF_PTR] = .UNIT ! Descriptor is ‘unit’ 
: 64 0706 E 
> 644 0707 4 BEGIN 
; 645 0708 4 CCB CLUBSA_BUF_PTR] = RLONG_A (PTR); 
; 646 0709 4 CCB CLUBSA_BUF_END] = .CCB CLUBSA_BUF_PTR] + .PTR [-3]; ' Length 
; 647 0710 : END; 
; 648 0711 
; 669 arte END; 
; 650 071 
; 651 0714 
; 652 0715 ‘+ ; 
3 $93 0716 2 ' Form local block so we have KEYVAL on stack at JSB time, if 
; 654 0717 2 ' necessary. It will only be used by UDFO. 
; 655 0718 2 !- 
; 656 0719 ; 
; 657 0720 BEGIN 
; 658 0721 3 
: 659 Orss ; LOCAL ; 
; rr 0752 KEYVAL; ! Local copy of ISAM key for conversion between I*2 and |*4 
: 66 0725 '+ . 
; 66 0726 ! Fill in values for ISAM statements. 
: 664 0727 ' Normally, this type of thing is done at the REC level, but 
; 665 0728 ! why take up space in the ISB when the RAB is already here? 
; 666 872 = 
: 667 0730 
; 668 0731 IF .ARGS CARG_KEY] 
: 669 736 THE 
; 670 7 4 BEGIN 
: 671 734 4 
: 67 0735 4 LOCAL 
; OF b7 a8 4 KEY : REF BLOCK C, BYTE); 
: 674 07 4 
s 675 0738 4 KEY = RLONG_A (PTR); 
3 O76 159 ? CCB CRABSL_RBFJ = .KEY COSCSA_POINTER]; 
; 678 ore} 4 IF .KEY CDSC$W_LENGTH] GTRU 255 
; 679 ee 4 THEN 
; 680 Bre 5 BEGIN 
: 681 744 «5 FORSSSIGNAL_STO (FORSK_INVKEYSPE); 
: 682 0745 5 RETURN; 


yz 
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; 683 be 4 END; 
> 684 747 4 
; 685 be 4 + 
; 686 te: 4 ! If this is a text string, then use its length. 
: 687 750 4 ' If a byte array, treat as a string whose Length is the 
; 688 872) 4 ! array size (for gompat 18/1 ity with PDP-11 FORTRAN IV-PLUS). 
; 689 P36 4 : Otherwise, set the key size to zero, which lets RMS use 
; 690 0755 4 ! whatever key size it wants for numeric values. 
; 691 0754 4 le 
: 69 BF 22 4 
; 69 0756 4 SELECTONEU .KEY CDSCSB_DTYPE) OF 
; 694 Bret 4 SET 
; 695 758 4 
; 696 0759 4 COSCSK_DTYPE_T) : 
3 244 Brey ? CCB CRABSB_KSZ2] = .KEY CDSC$W_LENGTH); 
; 699 B78 4 CDOSCSK_DTYPE_BU, DSCSK_DTYPE_B) : 
: 700 0763 5 BEGIN 
; 701 0764 5 
; 70 0765 5 IF .KEY CDOSC$B_CLASS] EQLU DSC$K_CLASS_A ! Byte array 
; 7 0766 5 TH 
; 704 0767 6 BEGIN 
: 705 0768 6 
3; 706 0769 6 IF _ .KEY CDOSC$L_ARSIZE] GTRU 255 
: 707 0770 6 THEN 
; 708 0771 7 BEGIN 
; 709 O77@ 7 FORSSSIGNAL_STO (FORSK_INVKEYSPE); 
: 710 0773 7 RETURN; 
g ti 0774 6 END; 
$ at; 0775 6 
Be 0776 6 CCB CRABSB_KSZ] = .KEY CDSCSL_ARSIZE]; 
: «714 0777 6 END 
3; is 0778 5 ELSE 
; 716 0779 5 CCB CRAB$B_KS2]) = 0; 
s vi? 0780 5 
: 718 0781 4 END; 
: 719 Ores 4 
:; 20 07835 4 COSCSK DTYPE_W, DSCS$K_DTYPE wu] : ! INTEGER*2 
s fer 0784 5 BEGIN 
: 22 0785 5 KEYVAL = .(.KEY COSCSA_POINTER])<0O, %BPVAL/2, 1>; ! Convert word to long 
3 wes 0786 5 CCB CRABSL_KBF) = KEYVAL; ! Address of value 
3 726 0787 5 CCB CRAB$B_KSZ) = 0; ! Keysize assumed correct 
: 725 0788 4 END; 
; os8 1434 4 
ee 790 4 COTHERWISE) : : 
; 728 0791 4 CCB CRAB$B_KSZ) = 0; ! RMS knows the proper key size 
: $2 45 4 TES; 
: 730 0793 4 
; 731 Boe 4 '¢ 
3 36 795 4 ' Set KEYID and MATCH parameters. 
Be 738 4 te 
; «734 797 & 
; 735 798 4 CCB CRAB$V_KGE] = 0; 
3: 736 799 4 CCB CRABS$V_KGTJ = 0; 
: re 800 4 
; 738 801 4 IF .ARG_LIST_END GEQA .PTR 
; 739 0802 4 THEN 
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: 740 p80) BEGIN 

: 741 04 LOCAL 

3 76 805 KEYID; 

; 7% a08 KEYID = RLONG_A (PTR); 

3: 7446 080 IF .KEYID GEQ°0 

s 745 0808 THEN 

; 746 0809 IF .KEYID GTR 254 

s 767 0810 5 THEN 

; 748 0811 6 BEGIN 

; 749 Bag 6 FORSSSIGNAL_STO (FORSK_INVKEYSPE); 

; 750 0815 6 RETURN; 

: 751 pate g END 

3 P36 815 ELSE 

; 0816 5 CCB CRARSB_KRFJ = .KEYID; 

: 756 0817 5 
; 755 0818 5 IF .ARG_LIST_END GEQA .PTR | 
: 756 0819 5 

s 30 0820 5 CASE .PTR [CO] FROM O TO 2 OF 

; 758 0821 5§ SET 

; 759 O35§ 5 

: 760 0823 5 (0) : 

: 761 0824 5 ; ! Match equal to 

3 Oe 0825 5 : 
3; 76 0826 5 CCB CRABSV_KGE] = 1; ! Match greater or equal 

> 764 0827 5 

; 765 0828 5 CCB CRABSV_KGT) = 1; ! Match greater than 

: 766 0829 5 COUTRANGE) : 

: 767 0830 6 

: 768 0831 6 FORSSSIGNAL_STO (FORSK_INVARGFOR); 

: 769 et 6 RETURN; 
: 770 0833 5 END; 
: 771 0834 5§ 

. FF 0835 5 TES; 
3; (77 0836 4 END; 
3; 774 0837 4 
3s 775 0838 3 END; | 
: 776 0839 3 
3; 777 0840 + 
: 778 0841 i Call appropriate User data formatted level of abstraction 
; 779 944 ! (UDF Level = level 2) initialization routine. 

; re oe? ie | 
; 78 Spee JSB_UDFO (FORSSAA_UDF_PRO + .FORSSAA_UDF =PRO ts + CISB$B_ StTe TYPE] = ISBSK_FORSTTYLO + 1)) | 
; #8 pase END; ! End of ISAM™+ JSB 

: 786 84 

s 785 0848 '¢ 

g 2 0849 ' Set up 1/0 in progress handler in catler's frame 

: 78 0850 = 

; 788 $2) 

: 789 26 BEGIN 

: 790 85 LOCAL 

3; 791 0854 RARE : REF BLOCK C the. 

: 79 55 FRAME | ail? CSFSL sAV VE_F Qur caller's frame 

; 79 26 ccB USER, FP TFR tore frame address 

> 79% 5 CCB RR USR RANDL) = = CSF SA HANDLER}: Callers handler 

; oe? bas SF SA_HANDLER FO PROG; ' of 1/0 in prearess handler 
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; 797 0860 
; 798 tts 1 f 


END; ! End of FORS$IO_BEG routine 


-TITLE FORSSIO_BEG FORTRAN READ/WRITE statement initia 
lization 

-IDENT \2-006\ 

-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


04 02 02 03 03 04 04 02 02 03 03 00 00000 P.AAA: .BYTE 0, 3, Vee © 2 24s. 3 *s 
35 20 20 02 02 es 23 ‘i 9 a8 6900" P.AAB: .BYTE 6° ‘ 5 +A $3 38 a4 2 22s 82. = | 
0 30 21 21 31 31 G68 00 00026 33. 58, a3 9,9 , 6, 4, ig?’ sf, 33. 48, <3 
C104 C200 (C204 0110 0114 0210 0214 0000 O002E P.AAC: .WORD 0, 532. 52 i 7 15868, -1587 : 
0000 4110 06114 4210 0214 0000 0000 8210 a0s49 -16124 37808 35536, 9. 9 a : 
0000 0000 0210 00056 532, 16912, 376, 1 32238. . x * 6, - ; 
le ADR_IDX= P.AAA 
TMT_A RG= P.AAB 
Stn ~AIR= P.AAC 
~EXTRN FORSS$CB PUSH, FORSSERR_ENDHND 
“EXTRN FORSS$SIGNAL § 
XTRN FORSSOPEN BELT 
EXTRN FORSSAA_UBF_PRO 
EXTRN FORS$IO-IN PROG 
WEAK FORSSFMT_ COMPIL 
083C 00000 ENTRY FORSSIO_BEG, Save R2,R3,R4,R5,R11 $ 
SE 18 C2 00002 SUBL2 #24, SP ; 
08 AE 7C 00005 CLRQ. —— L_UNWIND_DEPTH : 
10 AE 7C 00008 CLRQ A-ERR_ADR ; 
6D 0252 CF DE 00008 MOVAL 48$, TFP) : 
53 50 9A 90010 MOVZBL FLAGS ARG, STMT_TYPE : 
59 94 0001 CLRB -FLAGS"A ; 
55 A2 AF4 9a 00015 MOVZBL STMT ARG STMT _!YPEI, ARGS 3 
55 50 C8 D001, BISL2  FLAGS_ARG, ARG : 
14 Ar 01 DO 0001 MOVL #1, L =biw nb "ACTION ; 
5 6C 9A 00021 MOVZBL (AP),~ ; 
04 AE 640 DE 00024 MOVAL CAP) ERO ARG_LIST_END : 
50 FF76 CF4 9A 00029 MOVZBL ERR_ADR {px CSTMT_ TYPE), RO 3 
50 6C40 DE 002F MOVAL (APYCROTJ, ERR : 
50 04 AE OD 0033 CMPL ARG_LIST "ENDS “ERR POS 3; 0 
OB iF 0037 BLSSU  2$ * F 
05 1B 00039 BLEQU 1$ ; 
0c AE 04 AO 00 Fe MOVL 4(ERR_POS), A_END_ADR z 
10 AE 60 DO 00040 1$: MOVL § (ERR_POS), A_ERR_ADR : 
09 5 04 EO 00044 2$: BBS a yg : 
50 4 cE 048 MNEGL #4 : 
52 04 AC 00 00048 MOVL UNIT, R2 ; 
06 11 O004F BRB 4$ ; 
59 0 CE 0051 3$: MNEGL a). R ; 
CE 00054 MNEGL #5. R ; 
000000006 00 16 00057 4s: JSB FORS$CB_PUSH ; 
14 AE D4 0005D CLRL L_UNWINB_ACTION ; 


SE IS ec OE Le in ee RR NR OE OE - 


5 
FORS$10_BEG FORTRAN READ/WRITE statement initialization 1-se 1984 00:29: AX-11 Bliss-32 V4.0-74 Page 16 FC 
2-006 12-8 08- 138 99:93:63 FORRTL.SRCIFORIOBEG .B3 :1 9 3) 2: 
FF74 CB 10 AE DO 00060 MOVL A_ERR_ADR, -140(CCB) : 0540 
FF78 CB Of AE b0 066 MOVL ATEND ADR, -136(CCB) : pee 
FF cB 4 06 CLR -144 (CCB) : 348 
FF71 cB 90 000 MOVB STMT_TYPE, =143(C(B) + 054 
4 FC Ae 9& 0007 MOVAB =4(CTB) : 0556 
64 FFS4 cra e 9079 BIT Sit LATRESTMT_TYPEI, (R4) : 
52 FFGC CF43 B 99081 MOVW § STMT_ATRCSTMT_TYPE], ATTR : 0570 
5 6 B 0087 MCOMW (R4)> RO > 0571 
5 0 AA OOOBA BICw2 RO, ATTR : | 
’ Ri pe $38) Hage TTR. 8 8 
018E Rt itd Rw 40$ : 
05 52 E1 00096 S$: BBC #2, ATTR, 6$ : 0578 
F Bp 0009A PUSHL 4&4? : 0581) 
0185 31 909¢ BRW 42$ ; 
08 52 09 £1 O009F 6$ BBC #9, ATTR, 7$ + 0595 
0018880 ef DD OO0A3 PUSHL #1607692 : 
6 11 000A9 BRB 13$ : 
09 52 08 £1 OO0AB 7$: BBC #8, ATTR, 8$ + 0596 
50 00188804 8F DO OOOAF MOVL #1607684. RO ; 
27 11 00086 BRB 12$ ; 
09 18 000B8 8s: BGEQ 9$ > 0597 
50 00188814 8F 00 OOOBA MOVL #1607700, RO ; 
1¢ 11 000C1 BRB 12$ ; 
16 04 €1 000C3 9S: BBC #4, ATTR, 1 : 0598 
09 5 03 £1 000C7 BBC #3. ARGS, 10$ : 0599 
50 00188824 8F DO 000CB MOVL #1607716. ; | 
0B 11 000D2 BRB 12$ ; 
50 0018881C 8F DO 000D4 108 MOVL #1607708, RO ; 
02 11 00008 BRB 12$ ; | 
50 D4 O00DD 11 CLRL = RO : 0598. 
50 DD OOODF 128 PUSHL RO : 0596 
1F DD 000E1 1 PUSHL #31 > 0591. 
000000006 00 02 FB O00E3 CALLS #2, FORSS$SSIGNAL_STO : 
04 OOOEA RET : 0558. 
52 08 AC 9E OOOEB 148 MOVAB 8(AP), PTR > 0614 | 
18 55 01 €1 OOOEF BBC #1, ARGS, 17$ : 0620. 
62 05 O00F3 TSTL (PTR) > 0623. 
0B 13 000F5 BEQL 15$ : 
E4 AB b3 000F7 TSTL  =28(CCB) > 0624 
0B 13 OOOFA BEQL 16$ ; 
E4 AB 62 D1 O00FC CMPL (PTR), -28(CCB) ; 
05 18 001 BLEQU 16$ : 
19 pp 102 15$ PUSHL #25 > 0631 
011D 31 00104 BRW 42$ ; 
EO AB 82 DO 00107 16$: MOVL (PTR)+, =32(CCB) > 0634 
1C E9 00108 17$: BLBC ARGS, 19$ > 0645 
07 55 08 £0 0010 BBS #8, ARGS, 188 > 0647 
FF7C §=—6 CB 82 DO 0011 MOVL (PfR)+, -132(CCB) : 0649 
11 0011 BRB 198 ; 
FF7C CB 9F 00119 18%:  PUSHAB -1 (c¢B) > 0651 
FF72 ¢ 9F 0011D PUSHAB -142(C(B) ; 
DD 00121 PUSHL (PTR) + s 
000000006 09 0 FB 0123 CALLS #3, FORSSFMT_COMPIL ; 
1 64 €9 OO12A 198: BLBC (RL), 21$ : 066 
64 FE AB 01 €1 0012D BBC #1, -2(CCB), 308 : 066 
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! End of FORS$$IO_BEG module 


_FORSCODE + 005C 


647 bytes, Routine Base: 


; Routine Size: 


FORsS1O_BEG FORTRAN READ/WRITE statement initialization 1b-se 900-1982 9: 93: 3h ae i eta tees ot 4 Page | 


H PSECT SUMMARY 
: Name Bytes Attributes 
: _F ORSCODE 739 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; quewsees Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: ~S255$DUA28: SYSLIBISTARLET -1 32; 9776 18 0 581 00:01.0 
; ~$255$DUA28: CFORRTL.OBJIF ORLIB.L32;1 711 209 29 52 00:00.6 
3 ~$255$DUA28: FORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:FORIOBEG/OBJ=0BJ$:FORIOBEG MSRC$:FORIOBEG/UPDATE=(ENHS$:FORIOBEG) 
; Size: 647 code + 92 data bytes 
00:18.8 


; Elapsed Time: 00:53.7 
; Lines/CPU Min: 2760 

; Lexemes/CPU-Min: 16088 

: poe | Used: 258 pages 
; Compilation Complete 
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